]CATALOG 


DISK VOLUME 254 


PPP LSS Le 


. ae 
peng 


ey 


O04 
O41 
028 
O41 
O28 
O28 
025 


CAT 
TBA 
TC 


TLA. 


TSA 
TWA 
TLW 


JLOAD TLW 


]LIST 


a 
a, 


REM COPYRIGHT 1983 DAN GRIFF 


be ls ay 


I$ = mxn 


OPE 62) ae 117. e838, 16 


RED 


220 


GO, 2) 498) Ves. FOS, 200,16 
®, Oy. 745, TOR, 200, 160), 2, 
145, TOS. 7a, et ae a Mie 

FOR A = 768 TO 790 

READ B 

POKE A,B 

NEXT A 

REM ***THE LINE WRITER** 
% 

NORMAL : HOME 

HTAB 5: PRINT "¥¥#RHHRHHHR HEX 
KHKEKHKHKKKHKKHKHKEM 

FOR £o= 1 TO. 10 

ALAS. 52 PRINT &* 

* mn 

NEXT 

HTAB 5: PRINT "HHH MRR HHH 
KKEKKKKKKKKKKKKKEMN 
SPEED= 80 


VTAB 3: HTAB 13: PRINT "THE 
LINE WRITER" 


VTAB 5: HTAB 19: PRINT "By" 

VTAB 7: HTAB 13: PRINT "CORE 
CONCEPTS" 

SPEED= 255 


YIAB tte HTAB 6: PRINT "COPY 
RIGHT 1983 DAN GRIFFITH" 


FOR TIME = 1 TO 4000: NEXT 

HOME : PRINT CHR$ (7): PRINT 
CHR$ (7) 

TYPE = QO 


INVERSE : VTAB 2: HTAB 2: PRINT 
N¥*x**BEF SURE YOUR PRINTER IS 
ON! *#x*#eN 

NORMAL :PD = 1:CC = 0 

VTAB 22: INVERSE : PRINT " 

IF YOU DO NOT WISH TO PRINT, 

ENTER F. ": NORMAL 

VTAB 10: PRINT "IS YOUR PRIN 
TER INTERFACE 

Spano IN SLOT #12 (Y, Ny OR 
F)." | : | 

VTAB 11: HTAB 32: GET A$ | 
IF MID$ (A$,1,1) = "Y" OR MID$ 


£30 
a Be: 


240 
a4 5 


250 


Koo 


rele at 


260 
265 


ae a 


a he 
280 
£90 


300 


305 
310 


¥ B2Q 


330 


340 


re 


+360 


367 
370 
380 


B85 


390 


BID 
400 


440 


450. 


ane Fgh) oS GRRE: 6124): THEM 
= 1: GOTO 260 
: MID$ (A$,1,1) = "N" OR MID$ 
CAG. 1,1) = CHR$ (110) THEN 
GOTO 245 
IF MID$ (A$,1,1) = "F" OR MID$ 
(A$,1,1) = GHR$ (102) THEN 
CG = 7: GOTO: 260 
PRINT CHR$ (7): GOTO 210 
VTAB 22: HTAB 1: PRINT " 


" 
POKE ( - 16368) ,(0) 
VTAB 15: INPUT "ENTER CORREC 
T SLOT# AND PRESS RETURN.";S 


i? SS. 4 0R SS 7 PREN PRINT 
CHR$ (7): GOTO 255 

HOME : NORMAL 

POKE ( - 16368),(0) 

VTAB 10: PRINT "DO YOU WISH 

ADDITIONAL COMMENTS AND 

INSTRUCTIONS TO BE DISPLAYED 

2 (Y OR N)" 

VTAB 11: HTAB 39: GET A$ 

REM ***ANSWER ROUTINE*** 

ay. MIDS. (AS) 1,1) = 4Y" OR MIDS 

(as, 1) eS CHR$ (121) THEN 
= 1: GOTO 310 

a MID$ (A$,1,1) = "N" OR MID$ 
AG, 73. 1)c CHR$ (110) THEN 

tT = 2: GOTO 380 

PRINT CHR$ (7): GOTO 270 

REM ¥***INSTRUCTIONS*** 

HOME : HTAB 10: PRINT "***IN 

STRUCTIONS**" 

VTAB 4: PRINT "IF YOU WISH T 

O USE THE 132 COLUMN PRINT M 

ODE, YOU MUST SET YOUR PRINT 

ER TO 132 CGOLUMNS BEFORE RU 

NNING THIS PROGRAM." 

VTAB 8: PRINT "TO CORRECT MI 

STAKES MOVE THE CURSOR, U 

SING THE <-OR-> ARROW KEYS, 

AND RETYPE," 

VTAB 11: PRINT "ALWAYS BE SU 

RE THE CURSOR IS PAST THE 

LAST CHARACTER YOU WISH TO B 

E PRINTED, BEFORE PRESSING 

RETURN." 

VTAB 15: PRINT "TO GO TO THE 
MENU, GO TO POSITION 1, 

ENTER @, AND PRESS RETURN. " 

POKE ae 16368) ,(0) 

VTAB 22: INVERSE : INPUT "TO 
CONTINUE PRESS RETURN.";Q$ 
REM ***APPLE TYPE ROUTINE** 

+ 


POKER { ~ 16368),.(0) 

HOME : NORMAL 

If PREX (+9637) = 255. TREN 

TYPE = 1:GS = 3: GOTO 530 

LP. PREK (4 G37) = 234 ‘aeN 
GOTO 480 

HOME : NORMAL 


WiAM tes INVERSE: PRINT: “DO 


ES YOUR APPLE II HAVE AN 80 
COLUMN CARD? (Y OR N)": NORMAL 

+. GEr As). | 
TY MEDS, (AS. 1o4). & Oe OR MDS 
(as, 1,70)2 GHRS. C121) THEN 

YPE = 1: GOTO 490 
> MID$ (A$,1,1) = "N" OR MID$ 
(Ag 1LT) a CHRS (110) THEN 

GOTO 530 
HOME 
VTAB 12: INVERSE : PRINT "DO 
ES YOUR FRANKLIN ACE HAVE AN 

80 COLUMNCARD? (Y OR N)": NORMAL 
: GET A$ 


IF MID$ (a$,1,1) = "¥" OR MID$ 


(A$, 1 ag bus (121) THEN 
TYPE = 13: GOTO 490 
i rye 4a (A$,1,1) = "N" OR MID$ 
GHR$ (110) THEN 
anes 930 


PRINT. GHRS (7) 2 GOTO 481 

HOME : NORMAL 

POKE ( - 16368) ,(0) | 

VTAB 22: INVERSE : PRINT "EN 

TER CORRECT SLOT & PRESS RET 

URN": NORMAL 

VTAB 10: INPUT "IN WHICH SLO 

T IS YOUR 80 COLUMN CARD?";C 

g | 

LF OS >. 2 GR GS Ko  TRRM PRINT 
CHR$ (7): GOTO 500 

REM ***THE LINE WRITER*** 


Ze  CHRS (4) 


HOME 
POKE ( — 16368),(0) 
INVERSE : PRINT "SET LINE LE 


NGTH TO 80 OR 132 CHARACTERS 


."; NORMAL 
VTAB 12: HTAB 1: INPUT "ENTE 
R 80 OR 132, & PRESS RETURN. 
*s COL | 
Te Con. <) S SOc AND BOR < 
i THEN PRINT CHR$ (7): GOTO 
505 
IF TYPE = 1 GOTO 960 
HOME 
NORMAL 
VIAB 22¢ (PRINT "TO EXT?T., GO 
TO POSITION 1, ENTER @, 
AND PRESS RETURN." 
INVERSE 
VTAB 13: PRINT " 1 
1 2 2 3 b. 4 
" 
VTAB 14: PRINT eager 
be Oe kh ec hot ke wi atae ais re eck a 
" 
VTAR. 172° TF COL: <> 1392) THEN 
PR Pe a Sa ces ae 
Peele Vink ee ee 
VITAE 188 Ty COL <> 432 THEN 
PRINT " 5 0 5 0 
* O 5 O " 
IF COL = 132 THEN VTAB 18: HTAB 
13s: PRINT  8<29. TU Fae 
hicct oo 





670 IF COL = 132 THEN VTAB 19: PRINT 
NHK] RKHHHK YR 5 a ag 


1 1 an | 
680 IF COL = 132 THEN VTAB 20: PRINT 
‘ rg 3N 0 | 
O “6 Oo" 
690 IF COL = 132 THEN VTAB 21: PRINT 


ees 5 2D 
" 


700 VTAB 15: NORMAL 

+ 710. LET Pz = Ps 

720 CALL 768 

725 PG = MEDS (L1$,1) 

730 GOSUB 1450 

740 IF LINE = 1 THEN VTAB 15: PRINT 
LEFT$ (P$,(COL)) 


\ 745 IF LINE = 1 THEN PRINT CHR$ 


7) 

750 IF LINE = 1 THEN VTAB 22: PRINT 
"LINE EXCEEDS "COL" CHARACTE 
RS! MOVE C 
URSOR TO END OF TEXT.": INVERSE 


700 IF LINE 1 AND COL = 80 GOTO 


640 
770 IE LINE = 1 AND COL = 132 GOTO 
. 780 IF P$ = "@" THEN P$ = PZ$: GOTO 


785 IF GO'= 1) GOTO: 820 
790. PRINT 2S3"PRets 
800. PRINT: P$ 

810. PRINT Z$3;"PR#0" 


_ 820 PA$ = PB$:PB$ = PC$:PC$ = PD$ 


sPD$ = PE$:PE$ = PF$:PF$ = P 


830 NORMAL : HOME 


840 IF COL = 132 THEN GOTO 920 
850 PRINT PA$ 
860 VTAB 3: PRINT PBS 


“S870 VIRB 5S: PRINT PCS 


880 VTAB 7s PRINT PDS 


890 VTas 9: PRINT PRS 


900 “VTAB TT: PRINT PS 

910 GOTO 600 

920 PRINT PE$ | 
“Yyeusge VIAS: Se INVERSE: s PRIN’ %..— 


i st cn "; NORMAL 


940 VTAB 6: PRINT P$ 


950 GOTO 600 
960 REM ***80 COLUMN CARD*** 


* 970 HOME : NORMAL 


980 PRINT Z$3"PR#¥"CS 
DOO VTAR 15: PRINT 
1000 INVERSE 


1010 VTAB 16: PRINT " 1 
1 2 2 3 3 
4 4 , 6 6 
7 7. Se ° 0 5 
e QO ee oe GaN OQ 
5 AS es SL RN 
oO" 


PS Sores 
1071S. If COL = 132 THEN  VOAR 19: 
7 POKE 1403,52: PRINT "<END 
" 


a eG 


1030 


1040 


1045 


1050 
1060 
10°70 
1075 
1080 
1090 


1095 
1100 
1110 


1120 
1130 
1135 


“ 1140 


1150 
1160 
11:70 


1180 
1190 
1200 


1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


“y 1340 


1320 
#3390 


IF COL 132° THEN VEIAB 20s... 
PRINT See ae 
Sa a ets GE Lea ees 


IF COL = 132 THEN VTAB 21: 
PRINT " 5 0 5 0 
0 1 


4 2 2 
TO EXIT, GO TO SPACE 


CEO 
OE 
(fe COh@ 132 THEN. VERB: ae. 
PRINT * 0 
2 0 5 0 5 
O28 ENTER @, & PRESS RETU 
Ray" 
IF COL = 80 THEN VTAB 23: PRINT 


WTO Ball. GOTO POSITION 1, 
ENTER @ é PRESS RETURN" 
VTAB 18: NORMAL 


LET FAS = PS 

CALL 768 
P$ = MID$ (LI$,1) 

GOSUB 1450 

IF LINE = 1 THEN: VTAB 19: PRINT 
WT 

" 

(7) LINE = 1 THEN PRINT CHR$ 

f 

LF GINE = 1 THEN (VIAB 18: PRINT 
LEFT$ (P$,(COL)) 

LF LINE = '1 THEN: VIAB 152: PRINT 
"LINE EXCEEDS "COL" CHARACTE 
RS! MOVE CURSOR TO END OF T 
EXT se: INVERSE ¢. GOTO 1010 

PRINT CHR$ Ct): CHR$ (21) 

IF P$ = "@" THEN P$ = PZ$: GOTO 
1480 

TF GG = 1° GOTO): 1170 

PRINT Z$;"PRA"S 

PRINT P$ 

PRINT Z$3"PR¥ O" 
PAS = PB$:PBS = PC$:PC$ = PD 
$:PD$ = PE$:PE$ = PF$:PF$ = 
PG$:PG$ = PH$:PH$ = PI$:PI$ = 
PI$:sPI$ = P$ 

HOME : NORMAL 


PRINT Z$;"PRA"CS 
IF COL = 132 THEN GOTO 132 
0 


PRINT PA$ 7 
VTAB 2: PRINT PB$ 
VEAB 3: PRINT PCS 
VTAB 4: PRINT PD$ 
VIAB 5: PRINT PES 
VIAB 6: PRINT PFS 
VIAR 7s PRINT PCS 
VTAB 8: PRINT PH$ 
VIAB: 9: PRINT PIS 
VTAB 10: PRINT PS 
GOTO 1000 

PRINT PFS. 


VIAB 33 PRINT S.-i 


1340 
1350 


10: PRINT PI$ 
Oe FRING Tu 


VPAB 132 PRINT PS 

INVERSE : GOTO 1010 . 

If LEN (PS).< .. = (COL) THEN 
LINE = 0: GOTO 1470 
LINE.= 1:LG = LEN (P$) 
RETURN 

HOME : NORMAL 

HTAB 17: PRINT "*MENU*" 

VEAB 5S: PRINT "1. CONTINUE 
WITH PRESENT TEXT" 

Cone 2S FRLa ees 
T & CONTINUE" 

VTAB Oe FRIST B35. 
T & CHANGE OPTIONS" 

VIASB Tis PRINT: 84. G0 TO MA 
IN CATALOG" 

VTAB 22: INVERSE : INPUT "S§ 
HLECT NUMBER & PRESS RETURN. 


CLEAR TEX 
CLEAR TEX 


1 AND TYPE = 1 GOTO 
if 2B = 7 GOTO 830 
P$ = nts PAS = Wits PBS = WMePpC 
$ = nt sPDSF = nts PRS pi mt sPRs 
~ mls PGs = "ls PHS = nts; PTs = 
mn sPIS = wh 
ON ZB GOTO 10,580,170,1670 
PRINT CHR$ (7): GOTO 1540 
NORMAL CLEAR 
Z$ = CHR$ (13) + 
PRINT Z$3"RUN CAT" 


CHR$ (4) 


